﻿Option Explicit On
Option Strict On

Namespace ACOM2000

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Class AmplifierInfoEventArgs
        Inherits EventArgs

#Region " Private Members "

        Private m_AmplifierSerial As String
        Private m_RCUSerial As String
        Private m_FrontTubeSerial As String
        Private m_RearTubeSerial As String
        Private m_LicenceStatus As String
        Private m_PowerOnTimeSeconds As Integer


#End Region

#Region " Constructor "

        ''' <summary>
        ''' Constructor
        ''' </summary>
        ''' <param name="AmplifierSerial"></param>
        ''' <param name="RCUSerial"></param>
        ''' <param name="FrontTubeSerial"></param>
        ''' <param name="RearTubeSerial"></param>
        ''' <param name="LicenceStatus"></param>
        ''' <param name="PowerOnTimeSeconds"></param>
        ''' <remarks></remarks>
        Public Sub New(ByVal AmplifierSerial As String, ByVal RCUSerial As String, ByVal FrontTubeSerial As String, ByVal RearTubeSerial As String, ByVal LicenceStatus As String, ByVal PowerOnTimeSeconds As Integer)
            m_AmplifierSerial = AmplifierSerial
            m_RCUSerial = RCUSerial
            m_FrontTubeSerial = FrontTubeSerial
            m_RearTubeSerial = RearTubeSerial
            m_LicenceStatus = LicenceStatus
            m_PowerOnTimeSeconds = PowerOnTimeSeconds
        End Sub

#End Region

#Region " Public Properties "

        Public Property AmplifierSerial As String
            Get
                Return m_AmplifierSerial
            End Get
            Set(ByVal value As String)
                m_AmplifierSerial = value
            End Set
        End Property

        Public Property RCUSerial As String
            Get
                Return m_RCUSerial
            End Get
            Set(ByVal value As String)
                m_RCUSerial = value
            End Set
        End Property

        Public Property FrontTubeSerial As String
            Get
                Return m_FrontTubeSerial
            End Get
            Set(ByVal value As String)
                m_FrontTubeSerial = value
            End Set
        End Property

        Public Property RearTubeSerial As String
            Get
                Return m_RearTubeSerial
            End Get
            Set(ByVal value As String)
                m_RearTubeSerial = value
            End Set
        End Property

        <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1704:IdentifiersShouldBeSpelledCorrectly", MessageId:="Licence")> _
        Public Property LicenceStatus As String
            Get
                Return m_LicenceStatus
            End Get
            Set(ByVal value As String)
                m_LicenceStatus = value
            End Set
        End Property

        Public Property PowerOnTimeSeconds As Integer
            Get
                Return m_PowerOnTimeSeconds
            End Get
            Set(ByVal value As Integer)
                m_PowerOnTimeSeconds = value
            End Set
        End Property

#End Region

    End Class

End Namespace